home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 August / August CD.bin / Shareware / Programming / ViewIt™ 2.24 Shareware / FORTRAN Demo Projects / Absoft MacFortran II 3.2 Demos / Old MF 020 Stuff / MinimumMF.for < prev    next >
Encoding:
Text File  |  1994-05-27  |  445 b   |  19 lines  |  [TEXT/EDIT]
  1. C Minimum MF Demonstration Program
  2. C ©FaceWare 1991-93.  All Rights Reserved.
  3.  
  4.       PROGRAM MinimumMF
  5.     implicit none
  6.       include FaceStorMF.inc
  7.  
  8.     load JumpIt     !!!REMOVE this line if JumpIt is linked to program!!!
  9.     load toolbx  !!!REMOVE this line if toolbx is linked to program!!!
  10.  
  11.       uName = 'Minimum.Rsrc'
  12.       call FaceIt(0,DoInit,0,0,0,0)
  13.       do
  14.         call FaceIt(0,DoLoop,0,0,0,0)
  15.     repeat
  16.       end
  17.  
  18.       include FaceProcMF.inc
  19.